home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 June
/
Software of the Month Club 1996 June.iso
/
pc
/
win
/
sri
/
raytrace
/
qcktr12.rsc
< prev
next >
Wrap
Text File
|
1995-09-07
|
3KB
|
144 lines
% Reflection in a spherical mirror
.run_from qcktr11.rsc
.file_new
.quiet_snap
.new_text
This example will demonstrate reflection in a curved mirror.
Click on "Continue to see the mirror created."
.pause
.create_element
.move 250 200
.pause 500
.click 250 200
.arcseg
.radius_end
.clockwise_arc
.move 150 200
.pause 500
.click 150 200
.move 250 300
.pause 500
.click 250 300
.surface
.new_text
Click on "Continue" to see annotate the centre of the arc.
.pause
.annotation Centre of arc
.centre_snap
.move 242 216
.pause 500
.click 242 216
.move 370 270
.pause 500
.click 380 270
.set_length 100
.new_text
Click on "Continue" to see an incident ray strike the mirror.
.pause
.create_ray
.move 100 260
.pause 500
.click 100 260
.move 200 260
.pause 500
.click 200 260
.finish
.new_text
Clcik on "Continue" to see a tape measure that measures the
radius of curvature.
.pause
.create_tapemeasure
.mid_snap
.move 242 216
.pause 500
.click 242 216
.centre_snap
.move 242 216
.pause 500
.click 242 216
.click 300 250
.tapemeasure_options 1 1 leader distance
.click 296 260
.click 335 210
.new_text
Click on "Continue" to annotate the point
half way between the arc and its centre as the idealised
focus.
.pause
.annotation "Focus"
.mid_snap
.move 250 250
.pause 500
.click 250 250
.move 365 305
.pause 500
.click 365 305
.new_text
Click on "Continue" to back project the reflected ray to see
where is crosses the mirror's axis.
.pause
.click 168.2 272.6
.back_project
%.zoom_in
%.click 135 165
%.click 430 335
.new_text
Click on "Continue" to create a protractor to measure the
angle that the point of incidence subtends relative to the
axis of the mirror.
.pause
.create_protractor
.centre_snap
.move 241 277
.pause 500
.click 241 277
.end_snap
.move 170 260
.pause 500
.click 170 260
.mid_snap
.move 241 277
.pause 500
.click 241 277
.click 281 256
.protractor_options 0 leader degrees
.click 346 260
.click 365 240
.new_text
Click on "Continue" to move the incident ray up and down
and see how the mirror departs from ideal.
.pause
.move 170 260
.pause 500
.click 170 260
.pause 500
.click 170 260
.move 170 202
.pause 500
.move 170 298
.pause 500
.click 170 260
.new_text
Click on "Continue" to change the radius of the mirror to
half its current value.
.pause
.click 241 277
.click 200 286.6
.click 150 200
%.pan_left
%.pan_left
.new_text
Click on "Continue" to see the ray moved up and down the
mirror again.
.pause
.click 160 260
.click 170 260
.move 170 212
.pause 500
.move 170 288
.pause 500
.click 160 260
.script qcktr13.rsc